home *** CD-ROM | disk | FTP | other *** search
/ Amiga Games 1996 July / Amiga Games 1996 #7.iso / rexx / rx·dir < prev    next >
Text File  |  1994-11-16  |  291b  |  14 lines
  1. /* FILE REQUESTER */
  2.  
  3. OPTIONS RESULTS
  4. PARSE ARG modulname funcname
  5.  
  6. CALL ADDLIB("rexxreqtools.library", 0, -30, 0)
  7. dirname = rtfilerequest(,,"Wähle ein Directory ...", "Ok", "rtfi_flags = freqf_nofiles",)
  8.  
  9. ADDRESS "REXX_AB1"
  10.  
  11. Project modulname
  12. IF RESULTS > 1 THEN Function funcname dirname
  13.  
  14.